home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / multipic / multipic.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-06  |  5.6 KB  |  177 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "3-D Effects"
  5.    ClientHeight    =   1650
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1485
  8.    ClientWidth     =   2940
  9.    Height          =   2055
  10.    Left            =   1035
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   1650
  14.    ScaleWidth      =   2940
  15.    Top             =   1140
  16.    Width           =   3060
  17.    Begin CommandButton Command1 
  18.       Caption         =   "&Quit"
  19.       Height          =   495
  20.       Left            =   60
  21.       TabIndex        =   10
  22.       Top             =   1080
  23.       Width           =   2775
  24.    End
  25.    Begin PictureBox Picture3 
  26.       BackColor       =   &H00FFFF00&
  27.       Height          =   255
  28.       Index           =   3
  29.       Left            =   2460
  30.       Picture         =   MULTIPIC.FRX:0000
  31.       ScaleHeight     =   225
  32.       ScaleWidth      =   225
  33.       TabIndex        =   9
  34.       Top             =   720
  35.       Visible         =   0   'False
  36.       Width           =   255
  37.    End
  38.    Begin PictureBox Picture3 
  39.       BackColor       =   &H00FFFF00&
  40.       Height          =   255
  41.       Index           =   2
  42.       Left            =   2220
  43.       Picture         =   MULTIPIC.FRX:0302
  44.       ScaleHeight     =   225
  45.       ScaleWidth      =   225
  46.       TabIndex        =   8
  47.       Top             =   720
  48.       Visible         =   0   'False
  49.       Width           =   255
  50.    End
  51.    Begin PictureBox Picture3 
  52.       BackColor       =   &H00FFFF00&
  53.       Height          =   255
  54.       Index           =   1
  55.       Left            =   1980
  56.       Picture         =   MULTIPIC.FRX:0604
  57.       ScaleHeight     =   225
  58.       ScaleWidth      =   225
  59.       TabIndex        =   7
  60.       Top             =   720
  61.       Visible         =   0   'False
  62.       Width           =   255
  63.    End
  64.    Begin PictureBox Picture2 
  65.       BorderStyle     =   0  'None
  66.       Height          =   255
  67.       Index           =   2
  68.       Left            =   1560
  69.       Picture         =   MULTIPIC.FRX:0906
  70.       ScaleHeight     =   255
  71.       ScaleWidth      =   255
  72.       TabIndex        =   5
  73.       Top             =   720
  74.       Visible         =   0   'False
  75.       Width           =   255
  76.    End
  77.    Begin PictureBox Picture2 
  78.       BorderStyle     =   0  'None
  79.       Height          =   255
  80.       Index           =   1
  81.       Left            =   1320
  82.       Picture         =   MULTIPIC.FRX:0C08
  83.       ScaleHeight     =   255
  84.       ScaleWidth      =   255
  85.       TabIndex        =   4
  86.       Top             =   720
  87.       Visible         =   0   'False
  88.       Width           =   255
  89.    End
  90.    Begin PictureBox Picture1 
  91.       BorderStyle     =   0  'None
  92.       Height          =   255
  93.       Index           =   2
  94.       Left            =   540
  95.       Picture         =   MULTIPIC.FRX:0F0A
  96.       ScaleHeight     =   255
  97.       ScaleWidth      =   435
  98.       TabIndex        =   2
  99.       Top             =   720
  100.       Visible         =   0   'False
  101.       Width           =   435
  102.    End
  103.    Begin PictureBox Picture1 
  104.       BorderStyle     =   0  'None
  105.       Height          =   255
  106.       Index           =   1
  107.       Left            =   60
  108.       Picture         =   MULTIPIC.FRX:1484
  109.       ScaleHeight     =   255
  110.       ScaleWidth      =   435
  111.       TabIndex        =   1
  112.       Top             =   720
  113.       Visible         =   0   'False
  114.       Width           =   435
  115.    End
  116.    Begin PictureBox Picture3 
  117.       BackColor       =   &H00FFFF00&
  118.       Height          =   495
  119.       Index           =   0
  120.       Left            =   1980
  121.       Picture         =   MULTIPIC.FRX:19FE
  122.       ScaleHeight     =   465
  123.       ScaleWidth      =   465
  124.       TabIndex        =   6
  125.       Top             =   180
  126.       Width           =   495
  127.    End
  128.    Begin PictureBox Picture2 
  129.       BorderStyle     =   0  'None
  130.       Height          =   495
  131.       Index           =   0
  132.       Left            =   1320
  133.       Picture         =   MULTIPIC.FRX:1D00
  134.       ScaleHeight     =   495
  135.       ScaleWidth      =   495
  136.       TabIndex        =   3
  137.       Top             =   180
  138.       Width           =   495
  139.    End
  140.    Begin PictureBox Picture1 
  141.       BorderStyle     =   0  'None
  142.       Height          =   600
  143.       Index           =   0
  144.       Left            =   60
  145.       Picture         =   MULTIPIC.FRX:2002
  146.       ScaleHeight     =   600
  147.       ScaleWidth      =   960
  148.       TabIndex        =   0
  149.       Top             =   60
  150.       Width           =   960
  151.    End
  152. Sub Command1_Click ()
  153.    End
  154. End Sub
  155. Sub Picture1_MouseDown (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  156.    Picture1(0).Picture = Picture1(2).Picture
  157. End Sub
  158. Sub Picture1_MouseUp (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  159.    Picture1(0).Picture = Picture1(1).Picture
  160. End Sub
  161. Sub Picture2_MouseDown (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  162.    Picture2(0).Picture = Picture2(2).Picture
  163. End Sub
  164. Sub Picture2_MouseUp (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  165.    Picture2(0).Picture = Picture2(1).Picture
  166. End Sub
  167. Sub Picture3_MouseDown (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  168.    If Button = 1 Then
  169.       Picture3(0).Picture = Picture3(2).Picture
  170.    Else
  171.       Picture3(0).Picture = Picture3(3).Picture
  172.    End If
  173. End Sub
  174. Sub Picture3_MouseUp (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  175.    Picture3(0).Picture = Picture3(1).Picture
  176. End Sub
  177.